home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
F1 Licenseware
/
F1 Licenseware - Volume 1.iso
/
disks
/
050a.dms
/
050a.adf
/
EXAMPLE_PROGRAMS
/
example13_1.AMOS
/
example13_1.amosSourceCode
Wrap
AMOS Source Code
|
1992-02-26
|
1KB
|
29 lines
'===================
Rem EXAMPLE13_1.Amos
'===================
Rem Positioning screens
Rem open a lowres screen 228 pixels across and 80 pixels high
'-------------------------------------------------------------
Screen Open 0,228,80,4,Lowres : Curs Off : Paper 2 : Pen 3 : Cls 2
Rem the 0 is the screen number to be postioned
Rem The 190 is the x coordinate, using hardware coordinates
Rem 112 is the left edge of the screen, remember?
Rem 85 is the y postion (0-312 possible)
Rem The two commas mean use width and height from the selected screen
'--------------------------------------------------------------------
Screen Display 0,190,85,,
Rem Print a message on our screen. Do you know why it flashes?
'-------------------------------------------------------------
Locate 0,3 : Print " POSITIONING SCREENS USING SCREEN DISPLAY"
Rem WAIT for a key press
Rem This command returns everthing to Amos's system defaults including screens.
'------------------------------------------------------------------------------
Clear Key : Wait Key
Default